home *** CD-ROM | disk | FTP | other *** search
- %case doChoice%
- %DoChoice%
- %case itemNr%
- %DefineItem%
- %case classDecl%
- %if classname = superClass%
- %else%
- /*----------*/
- class %classname% : public %superClass% {
- public:
- // instance variables:
- // methods:
- virtual pascal void DoChoice (TView *origView,
- short itsChoice); // override
- #if qInspector
- virtual pascal void Fields (pascal void (*DoToField)
- (StringPtr fieldName,
- Ptr fieldAddr,
- short fieldType,
- void *DoToField_StaticLink),
- void *DoToField_StaticLink); // override
- #endif
- }; /* %classname% */
- %endif%
- %case gDeadStripSuppression%
- %StripSuppression%
- %case classMethods%
- %if not classname = superClass%
- #pragma segment ARes
- /*----------*/
- pascal void %classname%::DoChoice% %(TView *origView,
- short itsChoice)
- {
- long origID;
-
- origID = (long) (origView->fIdentifier);
- switch (origID) {
- default:
- break;
- } /* switch */
-
- inherited::DoChoice (origView, itsChoice);
- } /* DoChoice */
-
- %endif%
- %ClassMethods%
-